1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
111 IFUA=39THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
310 REM PROJECT MANAGER: FRANK WINTER
320 REM PROGRAM NAME: SPEED SPELL 7
330 REM WRITTEN BY: UNKNOWN
340 REM REVISED BY: JAN SAWCZAK"
350 [143] UPDATED BY: BILL CUMBERLAND
360 [143] IF REQUIRED, THE WORD LIST CAN BE"
365 REM MODIFIED TO INCLUDE OTHER WORDS THAT ARE BEING STUDIED.
370 REM CHANGE OR ADD WORDS INTO DATA LINES 1900-2345
375 REM MAXIMUM WORD LENGHT IS SET AT 20 LETTERS.
380 REM TO ACCOMMODATE LONGER WORDS, CHANGE THE VALUE OF 'UL' IN LINE 1380.
385 REM NOTE: DO NOT CHANGE OR DELETE DATA LINE 2350
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
410 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
420 [153]" (null)HIS PROGRAM IS A WORD GAME TO HELP"
430 [153]" YOU PRACTISE CHR$RADE 7 SPELLING WORDS.":[141]591
440 [153]" (null)ATCH THE BRIEF DISPLAY OF EACH WORD.":[141]591
450 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]591
460 [153]" ATNFTER 25 WORDS, YOUR SCORE WILL BE      DISPLAYED.
490 GOSUB820:RETURN
499 :
500 REM <YES> SOUND
505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
510 POKE54296,15:POKE54277,42:POKE54278,250
515 POKE54276,23:POKE54273,23:POKE54272,191
520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
525 POKE54296,0:RETURN
530 REM <NO> SOUND
535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
540 POKE54296,15:POKE54277,18:POKE54278,242
545 POKE54276,33:POKE54273,4:POKE54272,48
550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
555 POKE54296,0:RETURN
560 REM <BLIP> SOUND
565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
570 POKE54296,8:POKE54277,42:POKE54278,250
575 POKE54276,23:POKE54273,23:POKE54272,191
580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
585 POKE54296,0:RETURN
590 FORTM=1TO500:NEXT:RETURN
591 FORTM=1TO1000:NEXT:RETURN
592 FORTM=1TO2000:NEXT:RETURN
595 FORTM=1TO5000:NEXT:RETURN
599 :
800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
801 PRINT"      A TPUG EDUCATIONAL PROGRAM ":GOSUB591
802 PRINT"                                        [146]";
803 PRINT"                                        [146]";
804 PRINT"                                        [146]";
805 PRINT"             SPEED SPELL 7              [146]";
806 PRINT"                                        [146]";
807 PRINT"                                        [146]";
808 PRINT"                                        [146]":GOSUB591:GOSUB560
809 PRINT"          INSTRUCTIONS?  Y/N
810 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 810
811 [139]R$[178]"Y"[167] [141] 400
812 [153]"LOAD  AND AWAY WE GO!
813 GOSUB591:GOSUB500:GOSUB591
814 GOTO1000
820 GOSUB591:GOSUB560
822 POKEUN,0:PRINTLEFT$(UD$,24);"  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146]"
824 GETUI$:IFUI$<>CHR$(32)THEN824
826 RETURN
830 GOSUB591:GOSUB560
835 POKEUN,0:PRINTLEFT$(UD$,24);"[153]  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146][155]"
840 GETUI$:IFUI$<>CHR$(32)THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
865 UH[178]0:[153]"":[142]
875 [153][200](UD$,24);"       ASCIFTEEN SECONDS PLEASE...      ":[142]
899 :
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]"                                      "
906 L[178]650:[134] T$(L),A$(30)
909 [142]
910 [141]900:[153]"LOAD "
920 [137]800
999 :
1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
1050 UT$[178]" (null)PEED (null)PELL 7":UP[178]0
1100 [151]UT,UL%:UG$[178]""
1115 [153]"LOAD   PEEKEFORE BEGINNING THIS CHR$RADE 7 WORD"
1120 [153]"   GAME, DO YOU WISH TO SEE THE WORDS"
1125 [153]"   (ALL 427 OF THEM)?  (Y/N)  ";
1135 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 1135
1140 [139]R$[178]"Y"[167]1670
1150 [141]8000:[141]875:UG$[178]"":[140]
1165 T[178].1
1170 J[178]T[172]60:B[178]147
1185 C[178]0
1195 [135] R$
1200 [139] R$[178]"XXX" [167] 1225
1205 C[178]C[170]1
1210 [139] C[177]L [167] [153]"(null)OO MANY WORDS CHANGE LINE 906 SO THAT (null)> NO. OF WORDS"
1215 T$(C)[178]R$
1220 [137] 1195
1225 R[178][187]([171]TI)
1230 R[178][187]([171]TI)
1245 [153]"LOAD ATN WORD WILL BE FLASHED BETWEEN THESE    LINES.
1250 PRINT" [215]ATCH CAREFULLY!":GOSUB592
1255 PRINT"           ---------
1260 [153]"           ---------":[141]560:[141]560:[141]591
1265 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]592
1295 [153]" (null)E'LL START AT";T;"SECONDS.":UP[178]0:UQ[178]0
1315 UQ[178]UQ[170]1:[141] 830
1320 R[178][181](C[172][187](1))[170]1
1325 [139] R[178]P1 [176] R[178]P2 [176] R[178]P3 [167] 1320
1330 [139] R[178]P4 [176] R[178]P5 [167] 1320
1335 [139] UQ[177]NW [167] 1500
1337 UH[178]1:UG$[178]"(null)ORD #":[141]850:[141] 1475
1340 [141]591:[141]560:[141]560
1345 [153][200](UD$,13);[163]20[171]([195](T$(R)))[173]2);
1347 [153]T$(R)
1350 S[178]TI
1355 [139] TI[171]S[179]J [167] 1355
1360 [143]
1365 UP[178]UP[171]1:[141]850
1375 [153]" (null)HAT WAS IT?  >>>> ";
1380 US$[178]"":UL[178]20:[141]35:R$[178]UR$
1385 [153]
1390 [139] R$[179][177]T$(R) [167] 1440
1395 [141]500:[153]"SYS (null)HAT'S RIGHT! >>>> "T$(R)" WAITLIST"
1400 CR[178]CR[170]1:J[178]J[171]3
1401 [141] 1800
1405 [139] J[179]1.5 [167] J[178]1.5
1410 [153]
1415 P1[178]P2:P2[178]P3:P3[178]P4:P4[178]P5:P5[178]R
1417 [139] UP[177]9 [167] 1315
1420 [153]" (null)HE NEXT ONE WILL BE DISPLAYED"
1425 [153]" FOR";J[173]60;"SECONDS."
1435 [137] 1315
1440 [141]530:[153]"          DEF (null)(null)(null)(null)CHR$! WAIT  RIGHT$T WAS -- ":WRO[178]WRO[170]1
1442 [129]FL[178]1[164]11
1444 [153]""[163]16[171]([195](T$(R))[173]2))">>>"[199](18[171]128[172](FL[173]2[178][181](FL[173]2)))" "T$(R)" WAIT<<<ON"
1446 [129]TX[178]1[164]100:[130]:[130]
1448 [153]"LIST":[141] 1800
1450 J[178]J[170]3
1455 [139] [181](J[173]3)[179][177]J[173]3 [167] J[178]3[172][181](J[173]3)
1460 [137] 1410
1475 NQ[178]NQ[170]1
1480 [153]"-----------"
1485 [153]"-----------"
1486 [142]
1500 [151]53280,0:[151]53281,0:[151]646,13:SC[178]CR[173]25[172]100
1510 [153]"LOAD           (null)VAL(null)(null)(null)(null)(null) WAIT
1520 PRINT"     [217]OUR SCORE IS:";SC;"PER CENT"
1525 PRINT"     [206]UMBER OF CORRECT WORDS:";CR
1530 PRINT"     [206]UMBER OF WRONG WORDS  :";WRO
1535 IF CR=25THENPRINT"[158]              [197][216][195][197][204][204][197][206][212]!                [146][155]":GOTO1550
1540 IFCR<20THENPRINT"[150]      [217]OU MUST TRY HARDER.              [155][146]":GOTO1550
1545 PRINT"            [199]OOD WORK!                  [146][155]
1550 [153]"":[141]830
1555 [153]"LOAD    (null)OU HAVE A CHOICE:
1560 PRINT"    [208]RESS  [205] [146] TO RETURN TO THE MENU
1565 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1565
1570 [139]R$[178]"R"[167][140]:[137]800
1580 [153]"LOAD  (null)ETURNING TO THE DISK (null)VAL(null)(null)
1585 LOAD"MENU",8
1590 RUN
1595 END
1670 RESTORE:UG$="EXAMINE WORDS":UP=0
1680 FORA=1TO20
1690 READA$(A)
1695 IFA$(A)="XXX"THEN1710
1700 NEXTA
1710 UH=1:GOSUB850
1715 FORI=1TOASTEP2
1720 IFA$(I)="XXX"THENPRINT:GOSUB835:GOTO1150
1730 PRINT"";A$(I);
1740 IFA$(I+1)="XXX"THENGOSUB835:GOTO1150
1750 PRINTTAB(20);A$(I+1)
1760 NEXTI
1770 GOSUB835
1785 GOTO1680
1800 PRINT"[217]OUR SCORE IS "CR"CORRECT"
1810 PRINT"              "WRO"WRONG"
1820 RETURN
2000 DATA"ABSENCE","ABSENT","ABSOLUTE","ABSTRACT","ACCIDENT","ACCOMPANY"
2005 DATA"ACCOMPLISH","ACCOUNT","ACCURATE","ACID","ACTIVITY","ADDRESSED"
2010 DATA"ADMIRE","ADMISSION","ADMITTANCE","ADMITTED","ADOPTED","ADVICE"
2015 DATA"AFFECT","AFFECTION","AFFORD","AGENCY","AGENTS","ALCOHOL","ALMANAC"
2020 DATA"ALTER","AMBITION","AMBITIOUS","AMUSEMENT","ANGEL","ANNIVERSARY"
2025 DATA"ANNOUNCE","ANNUAL","APARTMENT","APIECE","APPLAUSE","APPLY"
2030 DATA"APPROACH","ARCH","ARCTIC","ARGUMENT","ARRANGEMENT","ARRIVE"
2035 DATA"ASHAMED","ASSEMBLE","ASSIGNMENT","ASSIST","ASSURE","ATHLETE"
2040 DATA"ATTACH","ATTENTION","AUTOGRAPH","AUTOMATIC","AUTOMOBILE","AVOID"
2045 DATA"BALLOT","BANANA","BANQUET","BAROMETER","BASKETBALL","BEACH"
2050 DATA"BELIEF","BELIEVED","BENEFICIAL","BENEFIT","BLIZZARD","BOULDER"
2055 DATA"BOUNDARY","BOUQUET","BREAST","BRIDAL","BRIDLE","BROKER","BRUNETTE"
2060 DATA"BUFFALO","BULB","BUSINESS","CABINET","CALENDAR","CALM","CALORIES"
2065 DATA"CARBON","CATALOGUE","CAUTION","CEILING","CELEBRATE","CELERY"
2070 DATA"CEREAL","CERTAINLY","CHARACTER","CHIEFLY","CHIMNEY","ADJUST"
2075 DATA"CHOCOLATE","CHOIR","CHORD","CIVIL","CLERGY","CLERK","CLIENT"
2080 DATA"COCOA","COLLECTION","COLLEGE","COLUMN","COMMAND","COMMENCE"
2085 DATA"COMMUNIST","COMPANION","COMPASS","COMPLAIN","CONCERN","CONCLUDE"
2090 DATA"CONCRETE","CONDITION","CONDUCT","CONFEDERATION","CONFIRM","CONFUSE"
2095 DATA"CONNECT","CONQUER","CONSCIOUS","CONSIDERATION","CONSIST","CONSTANT"
2100 DATA"CONSULT","CONTENT","CONTINENT","CONTINUES","CONTRACT","CONTRARY"
2105 DATA"CONVENTION","CONVINCE","COPIES","CREATOR","CRIMINAL","CYCLE"
2110 DATA"DECLARATION","DECORATION","DEFECTIVE","DEFINITE","DELIVERY","DEMAND"
2115 DATA"DEMOCRATIC","DENTIST","DEPOSIT","DESCRIBING","DESERT","DESERVE"
2120 DATA"DESIGNER","DESPISE","DESTINATION","DESTROY","DEVELOPMENT","DIAGRAM"
2125 DATA"DIAMOND","DIARY","DICTIONARY","DIFFERENCE","DIFFICULTY","DIGEST"
2130 DATA"DIRECTION","DISAPPEAR","DISAPPOINTED","DISASTER","DISCOVERY"
2135 DATA"DISSOLVE","DISTANCE","DISTANT","DISTRICT","DOUBTLESS","DRAMA","DUET"
2140 DATA"DUTIFUL","DWELLING","ECOLOGY","EDITOR","EDUCATION","EFFECT","EFFORT"
2145 DATA"ELBOW","ELECTION","ELECTRICAL","ELECTRICIAN","ENCOURAGE","ENGINEER
2150 [131]"ENTIRE","EQUIPMENT","ERASER","ERRAND","ERRORS","ESCAPE"
2155 [131]"EXAMPLE","EXCELLENT","EXCEPTION","EXCITEMENT","EXCLAIM","EXPENSIVE
2160 DATA"EXPERIENCE","EXPLAINED","EXPLANATION","EXTEND","EXTENSIVE","FACTORY"
2165 DATA"FAREWELL","FATAL","FAVORITE","FERRY","FERTILE","FESTIVAL","FEVER"
2170 DATA"FIERCE","FILING","FINALLY","FINANCE","FIXTURES","FLORAL","FORMERLY"
2175 DATA"FRIGHTENED","FUEL","FUNERAL","FUNGUS","FURNACE","FURNISHING"
2180 DATA"GARMENT","GENERALLY","GENEROUS","GEOGRAPHY","GLOOMY","GOVERNOR"
2185 DATA"GRADUATE","GRATEFUL","GROCERIES","GUIDANCE","GUILTY","HARMONY"
2190 DATA"HAUNTED","HEADACHE","HEAVILY","HECTARE","HESITATE","HIDDEN","HINGE"
2195 DATA"HONESTY","HORRIBLE","HORROR","HOSPITAL","HOST","HUMAN","HUMBLE"
2200 DATA"HURRICANE","HUSTLE","HYDROELECTRIC","ICY","IGNORANCE","IGNORANT"
2205 DATA"IMAGINE","IMMEDIATE","IMMENSE","IMPORTANCE","IMPRESS","INDEPENDENT"
2210 DATA"INDEX","INFLUENCE","INFORMAL","INFORMED","INQUIRE","INSTRUCT"
2215 DATA"INSULATION","INTENTION","INTERNAL","INTRODUCTION","INVALID"
2220 DATA"INVESTIGATE","INVESTMENT","INVITATION","ISSUE","ITEM","JEWEL"
2225 DATA"JOURNEY","JUDGEMENT","JURY","JUSTICE","JUSTIFY","KNITTING","KNOCKED"
2230 DATA"KNOT","LACROSSE","LANTERN","LATTER","LAUGHTER","LAUNDRY","LAWYER"
2235 DATA"LEAGUE","LECTURE","LEMONADE","LIGHTNING","LIMITED","LISTENED"
2240 DATA"LITERATURE","LOAF","LOCALITY","LOOSENED","LOVABLE","MACHINERY"
2245 DATA"MAGAZINE","MAINTAIN","MAJOR","MANAGEMENT","MANUFACTURE","MATERIAL"
2250 DATA"MATHEMATICS","MEDICAL","MELODY","MENACE","MERCHANT","MESSENGER"
2255 DATA"MINUTES","MIRROR","MISCHIEF","MIST","MISUNDERSTAND","MODERATE"
2260 DATA"MOSQUITO","MOTORIST","MOURN","MOVEMENT","MUSICAL","MUTUAL"
2265 DATA"MYSTERY","NAKED","NATIVE","NAVIGATE","NEEDLESS","NOISILY","NONSENSE"
2270 DATA"NOTIFY","NUMBERED","OBLIGED","OBSERVATION","OBSERVER","OBTAIN","ONYX"
2275 DATA"OCCASION","OCCUPATION","OCCUR","ODOR","OFFERED","OPENED","OPERA"
2280 DATA"OPERATING","OPERATION","OPINION","OPPOSITE","ORDINARY","ORGANIST"
2285 DATA"PALM","PARDON","PARLIAMENTARY","PASSAGE","PASSENGER"
2290 DATA"PASTURE","PATRON","PERCENTAGE","PERFORMANCE","PERMISSION"
2295 DATA"PERMIT","PERSUASION","PHOTOGRAPH","PHYSICAL","PIANIST","PIGEON"
2300 DATA"PIONEER","PLAGUE","PLAQUE","PLUMBER","POETRY","PORRIDGE","POSSIBLE"
2305 DATA"POSTAL","POSTPONE","PRACTICAL","PRAIRIE","PREFER","PRESENCE"
2310 DATA"PRESENTLY","PRESERVE","PRETEND","PREVENT","PRIEST","PRINCIPAL"
2315 DATA"PROBLEMS","PROCEDURE","PROCEEDS","PROCESS","PROFESSION","PROFESSOR
2320 [131]"PROFIT","PROHIBIT","PROJECT","PROMISES","PROMPTLY","PROPOSE"
2325 [131]"PROTECTION","PROVEN","PUBLISHER","PUNCTUAL","PUNISH","PYRAMIDS"
2330 [131]"QUANTITIES","QUARREL","QUESTIONS","QUIETLY","QUOTATION","QUOTIENT"
2335 [131]"AFFAIR","APPOINTED","ARTICLE","BECOMING","CENTURY","CLIMATE"
2340 [131]"COMMERCE","DEBTOR","DISEASE","EXAMINATION","GARBAGE"
2345 [131] "XXX"
8000 [143] NUMBER OF WORDS DISPLAYED
8010 [153]"LOAD        (null)HERE WILL BE 25 WORDS.":NW[178]25:[141]591
8020 [153]"          (null)ETTING THE STAGE.
8030 RETURN
8100 REM WHC 90:11:29